#!usr/bin/perl

#####=========----------CUERPO DEL MENSAJE

#Solicitamos el ingreso de un número por teclado al usuario
print "Introduzca un Número: ";;
#Guardamos el número en la variable $dividendo
chomp($dividendo = <STDIN>);

#declaramos la variable $divisores y le asignamos 2 como valor porque los
#números primos sólo tienen dos divisores (el número 1 y él mismo)
$divisores = 2;

#Ciclo for() para hacer las divisiones necesarias para determinar cuántos divisores
#tiene el número que introdujo el usuario
#La variable $divisor se inicializa en 2 porque todo número es divisible entre
#1 y su valor máximo será el valor de $dividendo-1 porque todo número es
#divisible por sí mismo
for($divisor=2; $divisor<$dividendo; $divisor++){
    #Hacemos la división para determinar si hay residuo
    if($dividendo % $divisor == 0){
        #Si hay residuo entonces encontramos otro divisor y se lo sumamos a la
        #variable $divisores
        $divisores+=1;
    }
}

#Una vez terminen las divisiones corroboramos cuántos divisores en total tiene
#el número introducido por el usuario

#Si divisores es igual a 2
if($divisores == 2){
    #Entonces es primo y mostramso el siguiente mensaje
    print "El número $dividendo es Primo\n\n";
}
#Si divisores es diferente de 2 es porque aumentó
else{
    #Y entonces de determina que el número no es primo y se muestra el
    #siguiente mensaje
    print "EL número $dividendo no es Primo\n\n";
}

#####==============----------==============#####